<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="aFunction_charCode.asp" -->
<!-- #include file="ad_comSub.asp" -->

<%
Call tslt_useridentity12_error_end()

boardid=request("boardid")

dim rs
dim sql
sql="select * from board where mark=false and boardid="&clng(boardid)  
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2
           if rs.eof And rs.bof then
                  conn.Execute("update board set boardhidden=true where mark=true and boardid="&clng(boardid))
                  dim rs2
                  set rs2=conn.Execute("select * from board where mark=true and boardid="&clng(boardid))
                         Response.write "<br><br><br><center><font size=5 color=red><b>" &rs2("MarkExplain")& "</b></font>"
                         rs2.close 
                  set rs2=nothing
                  Response.write"<META HTTP-EQUIV='Refresh' content='5; URL=bm.asp'>"
                  response.end
           else
                   call board_user_delete(clng(boardid))
                   call board_article_delete(clng(boardid))
                   conn.Execute("delete from board where boardid="& clng(boardid))
                   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_bm_delete(0))</SCRIPT>"
           end if
rs.close
set rs=nothing

Call conn_Nothing()

sub board_user_delete(aaa)
                  dim rs,sql                   
                  sql="select username from admin where boardid="& aaa
                  set rs=server.createobject("adodb.recordset")
                        rs.open sql,conn,1,2
                        do while not rs.eof
                               adminusername=rs("username")
                                dim rs2,sql2
                                sql2="select username from admin where username='"&adminusername&"' and boardid<>"& aaa
                                set rs2=server.createobject("adodb.recordset")
                                      rs2.open sql2,conn,1,2
                                      if rs2.eof And rs2.bof then
                                            sql="update ts_userinfo set bclass=0,mark=0 where username='"&adminusername&"'"
                                            conn.Execute(sql)
                                      end if
                                rs2.close
                                set rs2=nothing
                                rs.MoveNext
                         loop 
                  rs.close
                  set rs=nothing
                 sql="delete from admin where boardid="& aaa
                 conn.Execute(sql)
end sub

sub board_article_delete(aaa)  
                  dim rs,sql                
                   set rs=server.createobject("adodb.recordset")
                   sql = "select * FROM article WHERE boardid="& aaa
                   rs.Open sql,conn,1,2
                         do while not rs.eof
                                Dim d_SavePathFileName2
                                dim Rs1,Sql1
                                set Rs1=server.createobject("adodb.recordset")
                                Sql1 = "SELECT d_SavePathFileName FROM article WHERE id = " & rs("id")
                                Rs1.Open Sql1, Conn, 0, 1
                                        If Not Rs1.Eof Then
                                               d_SavePathFileName2 = Rs1("d_SavePathFileName")
                                        End If
                                        Dim aSavePathFileName2
                                        aSavePathFileName2 = Split(d_SavePathFileName2 , "|")
                                        Dim i
                                        For i = 0 To UBound(aSavePathFileName2)
                                                Call DoDelFile(aSavePathFileName2(i))
                                        Next
                                Rs1.close
                                set Rs1=nothing
                                rs.movenext
                          loop 
                   rs.close
                   set rs=nothing

                    set rs=server.createobject("adodb.recordset")
                    sql = "select * FROM article WHERE boardid="& aaa
                    rs.Open sql,conn,1,2
                                  do while not rs.eof
                                          Dim r_SavePathFileName2
                                          Dim Rs2,Sql2
                                          set Rs2=server.createobject("adodb.recordset")
                                          Sql2 = "SELECT r_SavePathFileName FROM reply WHERE cstr(reply_id)= " & rs("id")
                                          Rs2.Open Sql2, Conn, 0, 1
                                                  do while not Rs2.eof
                                                          If Not Rs2.Eof Then
                                                                  r_SavePathFileName2= Rs2("r_SavePathFileName")
                                                         End If
                                                         Dim bSavePathFileName2
                                                         bSavePathFileName2 = Split(r_SavePathFileName2, "|")
                                                         Dim j
                                                         For j = 0 To UBound(bSavePathFileName2)
                                                                Call DoDelFile(bSavePathFileName2(j))
                                                         Next
                                                         Rs2.movenext
                                                   loop
                                                   conn.Execute("delete FROM reply WHERE cstr(reply_id)= " & rs("id"))
                                         Rs2.close
                                         set Rs2=nothing
                                         rs.movenext
                                  loop
                                  conn.Execute("delete FROM article WHERE boardid="& aaa)
                   rs.close
                   set rs=nothing
end sub

%> 
